* progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 30fb40c26208e898c52806f9a95f36e4808eddcb..5c199016c653096e689e106523d303434dffbb43 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -458,10 +458,11 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
   (run-hooks 'grep-setup-hook))
 
 (defun grep-probe (command args &optional func result)
-  (equal (condition-case nil
-            (apply (or func 'process-file) command args)
-          (error nil))
-        (or result 0)))
+  (let (process-file-side-effects)
+    (equal (condition-case nil
+              (apply (or func 'process-file) command args)
+            (error nil))
+          (or result 0))))
 
 ;;;###autoload
 (defun grep-compute-defaults ()